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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del CBM 64 pubblicati 
su libri e riviste Jackson. 

In ogni numero un su pergamo originale in- 
glese descrìtto nei minimi particolari ed in 
più una miriade di altri programmi scelti tra 
utility, grafica, musica, giochi ecc 
Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un cor- 
retto utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta alle- 
gato alla confezione . ma anche personalizzar- 
li servendovi dei listati e della descrizione 
pubblicata all 'interno del fascicolo. 

La Jackson Soft Compilation, è Luna pubblica 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vo- 
stra raccolta di programmi 
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Il castello in cui ormai abi- 
tate da molti anni e m peri 
colo A minarne la sicurez- 
za sono degli strani esseri: 
gli orchi In apparenza mi 
tu ma al contrario maniaci 
distruttivi, si presentano 
armati di balestre tentando 
la risalita delle mura e 
usando lunghe scale com- 
ponibili. Per difendervi 
non avete molto, potete lan- 
ciare sugli invasori pesanti 
massi oppure colpirli con 
delle affilate sciabole. La 
vostra arma vincente é co- 
munque il pentolone di olio 
bollente che teglie di mezzo 
tutti gli orchi presenti in 
scena 

u gioco 

È un gioco che ha già riscos- 
so il pieno consenso dei 
fans di oltremanica e che 
certo non mancherà di su- 
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scitare interesse anche qui 
da noi. Lo scenario è pretta- 
mente medioevaie e richia- 
ma spesso situazioni da fa- 
vola, Vi trovate sui merlet- 
ti del vostro castello dal 
quale dominate situazio- 
ne forti delle armi in vostro 


possesso che trovate ai due 
estremi dello scenario stes- 
so. Le armi, in ordine di im- 
portanza. sonor i macigni, 
indispensabili per distrug- 
gere le scale in costruzione, 
la spada efficace nei com- 
battimenti corpo a corpo 
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con gli orchi e rollo bollen- 
te che e quella piu micidiale 
in quanto provoca la di- 
struzione di tutto quanto 
esiste sotto le mura. All'ini- 
zio del gioco sonodisponibi 
li i massi che dovrete la- 
sciar cadere sugli Insegui- 


tori badando bene di lan- 
ciarli tra un merletto e l'al- 
tro altrimenti non cadono 
Le armi si susseguono a se 
conda d; cosa vi necessita e 
ogni volta che verrete col- 
piti rimarrete per un atti- 
mo frastornati prima di po- 


ter recuperare una nuova 
arma Fate oro delie due vi 
te a vostra disposizione te 
nendo presente che ne per 
dete una solo dopo essere 
stato colpito nove volte I 
pentoloni di olio bollente 
non appaiono e quindi non 
sono sfruttabili nello stes 
so modo delle altre ami e 
questo perche si presenta 
no solo raramente e per bre- 
ve tempo; approfittatene 
non appena possibile Non 
appena avrete fatto perire 
tutti gli orchi con l'oiio bol- 
lente verranno conteggiati 
i cadaveri, i quali mere 
menteranno il punteggio 
Siccome gli orchi non vola 
no. se raggiungono la cima 
delle scale, possono pero di 
struggervi i merli del ca- 
stello con un lavoro lente, 
estenuante ma molto effi- 
cace Distrutto un solo mer- 
lo del castello i malvagi 
gnomi iniziano a lanciare 
dardi pericolosissimi Arri- 
vati a questo punto siete 
quasi spacciati in quanto 
non dovete far altro che 
tentare di deviare i colpi 
con ia sola spada $e riuscì 
te a distruggere i sempre 
piu odiati orchi non rag- 
giungete che il prime sta 
dio della vostra fatica La 
morte degli orchi richiama 
infatti, dall’oltretomba le 
ceneri dei loro primi ante 
nati comandate da un tern 
bile maga Non cedete al pa 
nicc ma velocizzate i movi- 
menti e distruggete questi 
spiriti malvagi con l’aiuto 
dei soliti massi che abbia 
mo già visto all’inizio. 11 
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tempo di comparizione del- 
le anime demoniache e ab- 
bastanza lungo Superata 
anche questa difficolta, 
avrete ancora a che vedere 
con i sempre piu numerosi 
orchi, non allarmatevi per 
che avete a disposizione no 
ve vite, sappiate utilizzarle 
nel migliore dei modi 
Se volete incrementare sen 
za troppa fatica il vostro 
punteggio fate bene atten- 
zione alle armi che appaio- 
no negli angoli e non fatevi 
sfuggire i pentoloni di olio 
bollente m modo da fare 
quante piu stragi di orchi 
vi sia possibile 
Piu incamerate punti e piu 
il game si fa difficoltoso 
grazie non solo al numero 
degli orchi in ballo ma an- 
che alla loro ferocia; cerca 
te t quando potete, di ripa- 
rarvi dietro ai merletti evi 
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tando di esporvi troppo al 
lancio dei dardi da parte de- 
gli avversari e non lasciate- 
vi prendere troppo la mano 
dallo scontro diretto con la 
spada :una buona doccia di 
olio bollente è quanto ci 
vuole per fare velocemente 
pulizia) 


I comandi e il 
punteggio 

Prima di iniziare a giocare 
dovete scegliere alcune op- 
zioni usando 1 tasti funzio- 
ne: 

FI --- Scelta del numero dei 
partecipanti al gioco r Lise 






rite un numero compreso 
tra 1 e 4). 

F3 - Grado di difficolta (in- 
serite un numero compreso 
tra 0 e 5) 

FS - Inizio del gioco 


F6 = Fine del gioco 
Le vite a disposizione sono 
due; ogni volta che venite 
decapitati ne perdete una, 
ma per veni: decapitati do- 
vete essere stati colpiti per 


almeno nove volte 
Il sistema più comodo per 
giocare è quello di impiega- 
re un joystick collegato in 
porta 2. ma nessuno vieta 
di usare i tasti anche se ciò 








implica una certa qual dif- 
ficoltà dovuta al fatto di do- 
ver tenere premuto in con- 
tinuazione il tasto numero 
L 

Tasti 1+5 = sinistra 
Tasti 1+? = destra 
Tasti 1+9 - sparo 
Al raggiungimento di 
20000, 50000, 100000 o 
250000 punti, vi viene re- 
galata una vita extra. 

Caricamento 

1 Accertatevi che il vostro 
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C64 sia collegato corretta 
mente sia al registratore 
che al televisore 

2 - Accendete rimpianto, 

3 ■ Inserite la cassetta nel 
registratore accertandovi 
che sia completamente 
riawolta. 

4 - Premete BUN/8T0P te- 
nendo abbassato il tasto 
SHIFT. 

5 Allapparne del messag- 
gio PRESS PLAY Off TAPE, 
premete il tasto PLAY dei 
registratore e ORC ATTACK 
si caricherà automatica- 
mente. 

6 - Attendete pochi minuti 
e potrete iniziare la batta- 
glia. 



8 






Orange Squash 


Sella supermeccanizzata 
fattoria ACME una delle più 
grandi del mondo nella pro- 
duzione di agrumi, ai è veri- 
ficato un fatto imprevisto, 
una pianta di arance parti- 
colarmente intelligente è 
in rivolta contro i suoi pa- 
droni. 

Contrario alla prospettiva 
di essere trasformato in pu- 
ro succo d’arancia, Osvaldo 
(tale il nome della pianta) è 
riuscito ad uscire dalia con- 
fezione in cui l'avevano già 
chiuso ed è ora in fuga da 
terribili nemici duali lo 
spremiagrumi, Herman il 
martello e Conan la noce di 
cocco, 

A parte gli scherzi, GRAN- 
GE SQUASH è un gioco arca- 
de in cui dovete difendere 
il protagonista dagli attac- 
chi nemici e portarlo in sal- 
vo attraverso il superamen- 
to dì numerosi schermi. 
Scappate quindi dai nume- 
rosi nemici ma ricordatevi 
di prendere i limoni -bonus, 
osservando anche che il li- 
vello del succo, visualizza- 
to nella parte inferiore del 
video sotto la dicitura Juì- 
ce" non cali troppo. 
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I Comandi 

Per riuscire in Questo gioco 
occorre grande abilità e 
prontezza di riflessi, ragio- 
ne per cui non si è prevista 
la possibilità di giocare 
usando solo là tastiera del 
computer. 

Con il Joystick in porta £ si 
possono selezionare le op- 
zioni di gioco e muovere il 
protagonista Db vai do con la 
massima destrezza. 

Caricato il gioco i occorrono 
diversi minuti), il program 
ma esordisce con una sim- 
patica schermata iniziale e 
una musichetta. Premendo 
il tasto di sparo, si comincia 
con la selezione del livello 
di gioco più adatto alle vo- 
stre capacità; è possibile 
scegliere tra cinque livelli 
portando la cloche in aito o 
in basso per selezionare. 
Premendo una seconda vol- 
ta il pulsante di sparo, il 
gioeo ha inizio e vi apparirà 
Osvaldo nell’angolo sini- 
stro dello schermo alle pre- 
se con le sfere rotanti. 
Portando la cloche a sini- 
stra o a destra potete muo- 
vervi nelle corrispondenti 
direzioni, premendo con- 
temporaneamente il tasto 
fire potete anche sparare. 
Per superare ostacoli o sal- 
tare sui ripiani portare la 
cloche verso l'alto, 
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Guida all’input C64 


Norme per la 
battitura 

1 caratteri grafici, ottenuti 
con la pressione dei dati 
‘Shift’ e “CBM’, sono codi 
Acati in modo da indicare il 
tasto da premere assieme a 
“Shift" o“CB&r. Ss. il cuori' 
cino è |SB 8 n numero 
dentro le parentesi indica 
le volte che il tasto va pre 
muto 


12 


tabella di 

COK VERSIONE 
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Disegnatore 



Disegnatore vi aiuta a crea- 
re complessi disegni tridi- 
mensionali utilizzando iì 
modo grafico ad alta risolu- 
zione che il vostro compu- 
ter mette a disposizione 
Potrete creare complessi dì 
segni sullo schermo limi* 
tandovi a fornire i punti 
iniziali e finali di ogni Li- 
nea 

Definirete il punto in cui 
due linee partono ed 1 1 pun- 
to in cui si incontrano, o il 
punto in cui una singola Li 


nea cambia direzione, op- 
pure i punti di una linea 
curva II Disegnatore vi 
consente inoltre di disegna 
re figure sia aperte che 
chiuse a due dimensioni 
cosi come disegni complessi 
che utilizzano delle combi- 
nazioni di figure a due e a 
tre dimensioni 

Coordinate 

cartesiane 

Il programma sfrutta il mo- 


do grafico ad alta risoluto 
me del C64 permettendovi 
cosi di disegnare control- 
lando i singoli pixel (punti 
luminosi ! dello schermo. In 
alta risoluzione, potrete lo- 
calizzare la posizione di un 
singolo pixel usando un si- 
stema di coordinate carte- 
siane. il diffusissimo siste 
ma di coordinate X-Y utiliz 
zato nel tracciamento di 
grafici e disegni. La ascissa 
X individua punti sull'asse 
orizzontale, e l’ordinata Y 
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quelli sull'asse verticale 
Potete localizzare qualsiasi 
punto sullo schermo dan- 
done le distanze misurate 
lungo l’asse orizzontale e 
Tasse verticale da un punto 
assunto come origine degli 
assi, esattamente come po- 
tete individuare una certa 
via sulla piantina di una 
città, cercandola nel riqua- 
dro chiamato F5 o C2 
I punti dell'asciassa X co- 
minciano al margine sini- 
stro dello schermo e si in- 
crementano verso destra, 
mentre le ordinate Y inizia 
no al margine superiore 
dello schermo e si mere 
mentano verso il basso La 
posizione di coordinate 
(0,0) coincide con la posi 
zione HOME del cursore, 
nell'angolo superiore sini- 
stro dello acherr r Qn indi, 
la posizione di coordinate 
(36,45) è ad ascissa 36 e ad 
ordinata 4S rispetto alla po 
sizione di coordinate (0,0) 
Lo schermo ad alta risolu- 
zione del C64 ha 320 punti 
lungo Tasse X e 200 lungo 
TY, per un totale di 64000 
punti. 

Per mostrarvi come il Dise- 
gnatore utilizza questo si- 
stema di,t race lamento, cre- 
iamo passo per passo i 1 dise- 
gno di figura 1 
Innanzitutto copiate il pro- 
gramma e registratelo, op- 
pure caricatelo direttamen- 
te dalla cassetta. 

U J Disegnatore in 
funzione 

Caricato il programma 
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mandatelo in esecuzione. 

Il Disegnatore comincia eon 
il mostrarvi le sette opzioni 
del suo menu: 

D ■ Definizione 
L ■ Lettura oggetto 
R - Registrazione oggetto 
V - Visualizzazione oggetto 
T - Traslazione oggetto 
M Menu principale 
F - Fine 
Scegliete D per definire 
l’oggetto che volete dise- -• — 


•OC PCKS 1 è;-34 , csPOKElè 4.55 , 0 
■ ^ POKEÓai. Gì POSE 6 42 ,* *> 

*53 P0KE4 3,1: POKS'i 4 ,64 :POKS5«5 ,0 : POKE56 . 1 
23 : POKE646 ,V:P!tINT N iCL.iìJ" 


0 P0KE53290, T 

1 02 C DIM A (20 , 2 , H ) 

1030 et*"" 

1040 REM MENU 
1050 PRINT H (CLR} # 
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TO 4 { PHI NT 
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4MC il= h V" 1-5 1 (Q*-*T" ) 

115/ ONGPGOTO M 90, 3000 ,3250 , t 670, 2?0Q 
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gnare sullo schermo. 

In questa seduta di prova, 
definiremo le diverse figu- 
re contenute in figura 1. un 
parallelepipedo con due fi- 
nestre nella parte anterio* 


re. Se suddividete il disegno 
nei suoi componenti, otte- 
nete una parte tridimensio- 
nale, il parallelepipedo, e 
due parti bidimensionali, le 
due finestre 



Premendo D comincia una 
serie di quesiti che vi chie- 
dono di fornire i dati neces- 
sari per disegnare ì’ogget 
to. Il primo quesito riguar- 
da il numero di parti bidi- 
mensionali (cioè a due di- 
mensioni ), a cui potete pen- 
sare come una sene di su- 
perfici piane da rappresen- 
tare sullo schermo. In figu- 
ra 1, la scatola a forma di 
parallelepipedo è disegnata 
in modo da simulare tre di- 
mensioni, ma le due fine- 
stre vengono disegnate co- 
me rettangoli piani, quindi 
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rispondete Z per quanto ri 
guarda il numero di pani 
in due dimensioni. 

Queste parti bidimensiona- 
li seno definite dalla suc- 
cessiva serie di quesiti. Vi 
Si chiede il numero dei pun 
ti che costituiscono la pri- 
ma parte del diBegno. La fi- 
nestra n 1 e composta da 
quattro punti, quindi ri- 
spondente 4. Il Disegnatore 
quindi vi richiede le coordi 
nate X, T di ogni punto. (Ri- 
cordate il nostro sistema di 
coordinate X,Y). Per con- 
gruenza e correttezza, inse- 
rite le coordinate In ordine 
orano. Assicuratevi di in- 
serire ogni gruppo di coor 
din&te correttamente pn 
ma di premere RETURN. Il 
Disegnatore non ha possibi- 
lità di correzioni, ed un er 
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PASTE? 


FORPT-2TOP1 *1 
PRINT : PRI KT*PARTE*{PT’ 
IFPT-2TKEN'32G 
FRINÌ "VUOI COPIARE L'ULTIMA 
t S> N > " 1 COSO 03 7 00 
IFGJ»*N " TMEN 1 320 
C0SUS2410 
GOTOI 390 

INPUT N N UMERO 01 Pmi":PO 

PS1 NT*PICURA CHIUSA? t S/N ì » : GOSU037 

OD 

IFQt-*S * T NERA ( PT 1 0» 1 ) * 1 t GOT0 1 360 

A { PT ,0 , 1 )-2 

AlFT,Q,O)-P0 

TA-2 

FORT • 2TO PO- 1 : INPUT**. Y" i Ai PT.O.TA ) . 

AtFT . C , T A - • : TA-TÀ+2 : NEXT 

NEXTPT 

PEV IN TRE DIMENSIONI 

PRI NT "NUMERO 01 PARTI IN TRE OÌMEKS 

IONI" : INPUTP2 

IFP2-0THENAÌ 1 »0, 0 IO r GOTO T 0*0 
QS-"* t A( 1 ,Q,0)-P2 
FQRPT-PATOP2-PA’ 1 
PRINTePRI'NT"PARTE 1, ìPT-1 
IFPT-PaTHEN'510 

pr:nt"?olete copiare l'ultima parte 

7 S/N)- ; COSO 03700 

IFQ*- p N"THEXl 51 0 

GOSUB2AJO 

GOTO» 630 

FRI NT"NUM ERO DI PUNTI SU OGNI FACCI 
A?" 

INPUTPO 
A (PT, 0.0) -PO 

PRIST-FIGURA CHIUSA? (s N e" : GOSUB37 
00 

IFQS--S-THENA IPT.C,’ *1 : GOT3 1 5?0 

A(PT,0,1 ) -2 

TA-2 

FORTI- 1 T02 
PRINT"FACC ! A" : TT 

FORT-2TOPC ■ 1 f INPUT "I , T" ; A ( PT , TT. TA ) 

,A* PT.TT.TA*! ) : TA-TA* 2 i NEXT 

TA-2 

NEX T TT 

NEXTPT 

GOTO 1 05 0 

REM 

PO K E 5 3 2 7 t 1 . i PEEK 5 3 2 7 2 ) 0 R 6 1 : POKE5J26 
5 , P E E K >326^;OR32 
FO = I -CT099 9 : POKE 1 02** I » T :NSXT 
co-o 

FOR 1-31 92T: : 192*799 J: POKEI, T: NEXT 
REM LETTURA IN DUE DIMENSIONI 
P I - A 1 0 , 0 , O ) 1 P A - P 1 ■* 2 
IFP t -0THEN1 900 
FORPT-2TOP 1 *1 


1 1 -A • PT,Q ,TA-i > 

CON LA. PRIMA VISUALIZ 


■A PT.C 


t 7 S 0 Pa»A<FT,O.Oj 
1 ?90 T A * 2 
i aoo F u NT -2TaPQ * 1 
1010 X’-A? PT.0.7A ); 

! *20 REM CCNFR-NTO 
IAZIOSE 

i f r * p o * i ak d a • t thenxz* 

,2. : Y2-A; PT f 0. : : :COSUB3 T 60 
i6 *-5 IFT-P3*1THEH T 390 
’ ?50 X2-A (PT, 0 ,TA*2 ) i Y2-A( P: , 0,TA* 3 > 

1 è 60 G0SUB21 60 

1 070 :a-ta*3 
10 80 SEXTT 
1090 NEXTPT 

1 900 REM LETTURA IN TRE DIMENSIONI 
t 9tQ P3*A<1 ,0.0) 

1920 IFP2-0THEN2340 
'930 FORPT-PATOP2*PA- 1 

1 9^0 pc -a ■ pt , o , : : 

* 950 FCfiir-!TC2 
I960 7A-2 
1 970 F 3RT ■ 2TGPQ* 1 

1980 XI -Al PT.TT , TA I : Y1 -A ! PT.TT,TA* 1 . 

1 990 1FT-P0+ 1 ANCA P7 , Q , t ) - ’ IHENX2-A ' PT, T 
r,2}:Y2-A P T , T T , 3 :GO5UB2160 

3000 IFT-PO+1 THEN3050 

3010 X2- A{ PT ( TT t TA * 2 ) i Y 2-A ( PI ,TT i T A* 3 5 

2020 GCSUB21 60 

3030 TA-TA-2 

2040 NEXTT 

2050 JiEXTTT 

3060 TA-2 

2070 FORPA-iTOPO 

2080 XI -A(PT, 1 .TA):Y1 -A1PT. 1 ,TA-1 ) 

3090 X3-A( PT.2.TA) (Y2-A1 PT,2 , TA+Ì ) 

3100 COS r J B2 1 60 
2110 TA-TÀ+2 
2130 NEXTFA 

3130 nextpt 

3140 GOTO 2 3 40 

2150 REM CONFRONTO CON LA SECONDA VISUAL 
IZZAZIONE 
3160 X*O:Y-0sSl-1 
2170 1FX1 >X2ANDY 1 >12THENSI--1 
21 80 I F(X3-X1 )< (Y3-Y1 JANDY1 ( Y 2THEN 2200 
3190 C0T03330 

2200 IF( Y2-Y1 )>( XI -X2)THEN3300 
2210 SI-- 1 : GOTO 2 230 

2230 IFCX2-X1 )<(Y1~Y2)ANDY1 >Y2TH£N2200 
223 O IFY1 -X2ANDX1 -X3THBWRETURI 
2240 1FY1-Y3THEN3620 * 

3250 REM CICLO DI TRACCIAMENTO DELLA VIS 

ualizzazione 

2260 FOS YY-Y 1 T0Y3STtPSl* ( ( 12- Y1 )/{X2-Xl ) 
) j Y-INTCYYÌ iX-X1 

2265 GOSUB3500:GOSUB3560ìNEXTYY 
2270 GOT02320 


rare può provocare l'uscita 
di finire malfatte. Ogni vol- 
ta che premete RETURN, vi 
verranno chieste le coordi- 
nate del punto successivo. 
X,Y (Inserite) 84,80 
X,Y (Inserite) 99,73 
X,Y (Inserite) 99,110 
X,Y (Inserite) 84, 132 
Dal momento che avete due 
finestre (due parti bidi- 
mensloni), il quesito suc- 
cessivo vi chiede ì dati della 
seconda finestra. Il Dise 
gnatore vi permette di otte- 
nere una seconda finestra, 
dai dati già inseriti per la 
prima. 

Volete copiare Tultima par- 
te? (s/n)s 

Rispondete s, perché volete 
che entrambe le finestre 
stano identiche, ma in posi- 
zioni diverse dello scher- 
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mo II quesito successivo 
chiede realità della trasla- 
zione della figura sia in di 
mione X che in direzione 
Y 

Questa richiesta fìssa a che 
distanza orizzontalmente 
(X) e verticalmente (Y) dal 
la sua posizione originale 
volete copiare la prima fi- 
nestra per generare la se 
conda 

Diamo un altro sguardo alla 
figura 1 Relativamente al- 
l'origine (0,0), la finestra 2 
è spostata a destra e verso 
l'alto rispetto alla finestra 
1. Per endere l’esempio il 
più chiaro possibile, abbia- 
mo già calcolato le distanze: 
la finestra Z va traslata di 
35 unita lungo l'asse X ver- 
so destra, e dil3 lungo Tas 
se Y verso l'alto, rispetto al- 
la finestra 1. Il Disegnatore 
vi suggerisce 
PARTE 2, TRASLAZIONE: 
DESTRA » + X SINISTRA = 
-X 

BASSO - + Y ALTO - -Y 
Questo vi dice che le trasla- 
zioni lungo Tasse X vengo- 
no considerate positive se 
state spostando la figura 
verso destra, e negative se 
verso sinistra Le traslazio- 
ni lungo l'asse Y sono posi- 
tive se verso il basso e nega 
live se state trafilando ver- 
so l’alto rispetto alla posi 
zione originale della figu- 
ra. 

Vi verrà chiesto TRASLA 
ZIONE X? e voi battete 35. 
In risposta a TRASLAZIONE 
Y? rispondete -13. dato ohe 
le finestre non sono tridi 
mensionali, rispondente 

ia 


22 Ì 0 irti 1 -I 2 >»CII-X 2 >THIMI — 1 iCOTQ2300 

2290 00T0223O 

2300 1FX l -I2THEN3Ó6C 

2 310 POR XX-X 1 T0X2STEFSI * (lX2“X1)/(Y2*¥1 ] 

) iI-IKT<XX)iY-Y1 
2 315 G0SU&35OO :GGSUB3590i NEXTXX 
2320 RETURN 

2330 REM RITORNA AL MENU 
23*0 Al-"" 

2350 GETA$:IFA4.-*THEII2350 

2360 IFAI<>CHRI17T)THEN2350 

23T0 FON X-M 9 310*1 92+7 999 s FOKE 1 , 0 1 N EXT 

2 390 POK E5 327 2 ,21 i P0KE53265 ■ 27 

2390 PRI HTCHRKl 47 ) 

2400 00101050 
24 1 0 ERO 

2420 JtEM COPIA VITA PARTE 

24 JO PAINT" CCLH)" s P AINT'PÀRTE" i PT- 1 t * /TH 
ABLAZIONE!* 

24*0 PR1 NT*DES7RA- + X SINISTRA--*" 

2450 PR 1 NT* SASSO - + T ALTO { 4 SPC ) T * i PR I 

HT 

2460 INPUT'TRASLAZ IONE X "ìTX 
2470 INPUT* TRASLA ZI ORE Y "{TX 
2460 PR I NT* L A PARTE E' TRI D IKER5I0NALE 7 t 
S/H )*ìGOSUB37O0 
2490 IFQ*-"3*TRtN2590 

2500 A{PT t 0,O)-A{PT-1 ,0*0) i A(PT,0*1 J-A(P 
T-1 ,0*1 > 

2510 TA-2 

2520 FQRT-2TO A { PT » 0 » Q ) + 1 
2530 Al PT ,0 , T A )-A t PT- 1 ,O.TA)*TX 
2540 A(PT*0,TA+l)-A(PT-f ,Q,TA+1 )*TX 
2550 TA-TA+2 

2560 NE ITT 

25:0 PRIN7" ( CLR ■ " 

2560 RETURN 

2590 A(PT,0 . 0 )-AlPT-l , 0,0) : A(PT,0. 1 i-A . P 
T-l ,0 . 1 ) 

2600 F0RTT-1T02 
2610 TA-2 

2620 FORT-2TOA!PT, Q,C ) +■ 

2630 A( PT*TT,TA)-AtPT-l ,TT,TA)-:X 

2640 À(FT,TT ,TA+1)-AIPT-1 *TT,TA*1 ) *7T 

2650 T A- T A * 2 

2660 NEXTT 

26’0 NEXTTT 

2680 PRI NT" ( CLR ! ” 

2690 RETURN 

2700 REM TRASLAZIONE 

2710 PRI NT" { CLR? " : PR INT’TRASLA HO NE = " 
2720 PRI NT" DESTA A- + X SINISTRA--** 

2730 P fi I NT" BASSO - + T ALTO 1 4 SPC } -- Y " : P R I 
NT 

2740 :NPUT"TRASLAZIONE X ";TX 
2750 I NPUT*TR ASLAZ IONE Y " : TX 


27&0 
277 0 

2 reo 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

29^0 

2950 

2960 

2970 

2960 

2990 

3000 

3001 

3003 

3005 

3008 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3i oo 
3110 
31 20 

3130 

3140 

3150 

31 60 
3170 
3' 80 
3190 
3200 
321 0 

32 20 
3230 
32 40 
3250 
3260 


PI «A{0, 0 .0 ) ; PA-P1 *2 
F08PT ■ STOP t + l 
PO«A{ PT ,0. 0) 

TA-2 

FQRT-2TGP0+ 1 

A(FT,0,TA)»A( pt , 0 , t A ) *tx 

A<PT l 0,TA + O-AtPT,0,TA + 1 > + TY 

Tfl-TA+2 

NEXTT 

nextpt 

P2-A { 1 ,0,0) 

FORPT-PATOPS+PA-t 
PO-A( PT, 0 ,0) 

FORTT- 1 T02 
T A =2 

FORT-2TOPO+1 

A ( PT , IT , TA )-A ’ PT, TT ,TA ) + TX 

A(PT , TT ,TA* 1 ) ■ A ( P T , TT , T A + 1 Ì + T7 

TA-TA+2 

NEXTT 

NEXTTT 

NEXTPT 

GOT01050 

REK LETTURA 

PUIIT" [CLR JNOKE DISTINTIVO DEL DISE 
ONO" s INPUT Fi 

print"Iclr)hastrc o disco { h / d > ? t k 

PUTOU* 

IFODA<> f, N”ANDOUAO H D rt THÉN300t 
IFQU$ = "M”THEN0Lr-1 5 GOTO 3020 
OU-8 

OPEN 1 , OU , 0 , Fi 

INPUT#! , A{0,0.0) , A< 1 ,0,0) 

F0RPT-2T0A ( 0. 0 , 0 ) + 1 
TA -2 

INPUT # 1 , A ( PT , 0 , 0 ) , A ( PT , 0 , 1 ) 

FORT- 1 TO A ( PT , 0 , 0 ) + 1 

INPUT# 1 ,A(PT,0,TA) . ACPT.O.TA+1 ) 

T A -TA * 2 

NEXTT 

NEXTPT 

FOHPT-A(0,0,0)+2TOA( 1 ,0,0}+A (0*0,0) 
+ 1 

INPUT# 1 , A{PT,0 , 0) , A ( FT , 0 , 1 ) 


FORTT = t T02 
T A -2 

F0RT-2T0A t PT.O , 0)+1 

INPUT # 1 j A t PT , TT ,TA) , A(PT,TT,TA*1 ) 

TA=TA+2 

NEXTT 

NEXTTT 

NEXTPT 

C LOS Et 

GOTO! 050 

REK FILE 

PRINT " { C-Lft ) " 

PRIIfT" {CLR JNOME DISTINTIVO DEL DISE 
GNO’ 1 : I NPUTFS 


con N alia domanda: 

La parte è tridimensiona- 
le? 

Non avete ancora creato il 
parallelepipedo che circon- 
da le finestre. 

Quando il calcolatore chie- 
de: 

Numero di parti in tre di- 
mensioni? 

rispondente, ovviamente 1, 
per il parallelepipedo. 
Potete ora creare Vimpree- 
sione della tridimensionali- 
tà, rappresentando certi 
spigoli del parallelepipedo 
e lasciando che il Disegna- 
tore completi il parallelepi- 
pedo al vostro posto. Vede- 
re, al riguardo la figura 2, 
Questo disegno rappresen- 
ta un parallelepipedo ana- 
logo a quello che siete sul 
punto di creare (Le linee 
tratteggiate sarebbero na- 
scoste se il parallelepipedo 
ha sei lati, o facce: anterio- 
re (Faccia 1), posteriore 
(Faccia 2), superiore (Fac- 
cia 3), inferiore (Faccia 4), 
ed i lati sinistro e destro, 
che, per evitare confusio- 
ne, non sono etichettati. 
Ogni faccia rappresenta 
una figura chiusa, a quat- 
tro lati, (Vedi figure 2b e 
2c). 

Innanzitutto vi si chiede il 
numero di punti su ciascu- 
na faccia: 

Numero di punti su ciascua 
faccia? 4 
Figura chiusa? S 
Ora inserite i punti di due 
lati opposti. 

Faccia I 

X,Y?36,45 

X,Y?70 t 70 
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X.Y 9 7CU39 
X,Y?36 ( m 
Faccia 2 
X.Y*114.17 
X.Y*146.41 
X. 77148, 111 
X,Y? 114,84 

Dopo che avete inserito !a 
quarta sene di coordinate e 
premuto RFFUHK, rientra 
te nel menu pn nei pale Da 
questo menu, voi potete vi 
sua! i zzare il vostro disegno 
premendo V Dopo averlo 
visto, premete U per nen 
trare nei menu principale 
Potete registrare i vostri di 
segni sia su disco che su na 
stro, e ricaricarli in memo* 
ria usando la opzione L del 
menu pirncipale 

Traslazione 

Una ulteriore opzione del 
Disegnatore e la possibilità 
di muovere un intero ogget 
to entro lo schermo Questa 
opzione di traslazione lavo 
ra come l'opzione interna al 
programma che permette di 
copiare l'ultima figura 
creata L’opzione vi richie- 
de i valori numerici delle 
traslazioni lungo gli assi X 
ed Y Può essere efficamen 
te utilizzata per centrare 
un oggetto o per altn scopi 
Si limita a cambiare, fisica 
mente, i dati di base Se non 
volete conservare la trasla 
zione dopo averla vista, 
non registratela. 


Tratto da: 
Super Vie 4 84 
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-‘fm«:*iCL?“7WSTK. 0 DISCO m/i «ila 

? TI *4$ 

J263 IFIN»* >* r U*TB£a32Sl 

ini i fì et-* e t- 1 ; 00103270 

**’*•- s-e 

3??o JFEjn ,1 a . i . F$ 

3250 RS*CHS$(tJ) 

ìm FftlSTi» .A 3,0,01;**?* ' , r - . ì 
1300 fgupt-ztc* o,o,o:>*i 
3310 TA-Q 

i i2l FORT -STO* . PT , 0.0 )* ' 

3 3 30 . JUPTYÓ.TA ;R*;Ai PT.O.TA*! 

33*0 TA-TA+2 
3350 NEXTT 
3360 NEKTP7 

: 370 FOR RT-A' 0.0.0 * 2TC-A 1 , Q . 0 ) + A i . . U . 0 > 
♦1 

3 360 PAI NT# 1 , A !PT, 0, 0 ) jRt : A PT.G. 1 
3390 FORTI- 1 102 
3*00 TA-2 

3*10 FORT-ZTOA1 PI, 0,03+1 

3*20 PRIN7I1 , A(FT,TT,TA) j B*| A(PT , TT,TA* 1 

> 

3*30 T A » T A ♦ 2 

3**0 NEXTT 
3*50 N EXTTT 
3*60 MEKTPT 
3*70 CLOSEl 
3*30 GOTO 'OSO 

3*90 REK SUBROVTINE 01 TA ACC I AMENTO 
37 - ir* * J2COHÌ<atHE(ÌH£TURN 
361 o I F If > ’ 99OR¥<0TKElMl£TUft» 
ì £ 2:ì CH-IKT t X/fl> :LI-rAi07 
3 C 30 RO-IiT ( Y/fil : 0 V - ® 'l 92 + RQ* 3Z0+8 * CR * LN 
35*0 BI-7-UAM07) : ROSEE f , PE£K.( BY ) OS 2* 
BU : RETUHS 

3650 SEM SOBROUTINE CICLO Y 
it il : FUI X2THESX 1 -Xi * ' : «ET'JRS 
3570 X1-X1- I r RETURN 
3660 RE“ SUSllOtìTtME CICLO * 

3590 :FY 1 Y 3 THFXY 1 -Y • * ' s RETUfi N 

3600 Y1 -Yl-1 : RETURN 

3610 «EH Y1-Y3 

3020 ÌFX1 >X2THEK3I-- 1 

36 30 FQRXX-X 7 T JX2STEPSIM : X-INT XX : V - V 1 

:COSUB350Q:NF.X7XX 
36*0 flETUSN 
3650 REM X 1 = X 2 
3 660 IFY1 'Y2THEJfSI*- 1 

le 70 FORYY-Y 1 TCY2STEPSI* 1 = T - 1 ffT f YT J j X - X 1 
: GOSUH350G : NEXTY1 
3600 RETURN 
3690 REM Ul 
3700 Q|-*» 

1710 GETQS:IFQt = flrt THEJf}71 0 
3720 RETURN 

37 30 REM FINE 

3 \ r ij 0 PRI NT" ( CLS 1 11 : END 


Ingranditore 


Quando è necessario fare 
una scritta gigante per ab- 
bellire il nostro program 
ma, il piu delle volte si è co- 
stretti a scrivere una quan- 
tità enorme di PRINT e di 
segni grafici per poter otte- 
nere una lettera o un nu- 
mero tre o quattro volte più 
grande del normale, ed in 



491 52 

:03 2 , 

,041 , 

m. 

169, 

,000, 

141 

, 068 

491 5S 

:03 2 , 

,200, 

1 69, 

Oli , 

1-141, 

033. 

, 086 

491 £4 

: 200 , 

.169, 

060, 

1 41 , 

,132, 

003 , 

t 21 3 

4 91 70 

= 169, 

,M7 r 

032 , 

210, 

,255, 

1 73 , 

, 236 

4 91 76 

: 0 3 0 , 

, 208, 

1 69, 

OOO, 

,141, 

120, 

rlSG 

491 82 

:0O3, 

,169, 

144, 

032, 

,210, 

255, 

r 075 

491 89 

: 1 60 , 

, 000, 

1 85 , 

071 , 

,201 , 

201 , 

r 0B6 

49194 

:OOB, 

,240, 

007, 

1 53, 

,000, 

050, 

,244 

49200 

; 200 , 

,£>?6, 

038, 

192, 

,169, 

1 38, 

, 093 

49206 

= 13 3, 

,252, 

1 69 1 

1 97, 

,133, 

253, 

, 167 

4 921 2 

:1 60 , 

,000, 

177, 

252 , 

,201 , 

000, 

,082 

4 92 1 8 

: 240 , 

r 0 1 2 , 

032 , 

210, 

,255, 

230, 

,021 

49224 

: 2 52 , 

208, 

243 , 

2 30, 

,253 , 

076, 

, 054 

49230 

1062, 

,192, 

169, 

063, 

,141, 

021 , 

,214 

49236 

: 208 , 

169, 

200, 

141, 

, 248 , 

00 7, 

,033 

49242 

iUl, 

250, 

00 7, 

141 . 

, 251 , 

007 , 

,119 

4 9248 

il 41 , 

,252 , 

007, 

1 41 , 

253 , 

007 1 

1 29 

4 92 54 

; 1 69, 

, 201 , 

141 , 

249, 

-007, 

169, 

01 4 

49260 

: COO , 

162, 

000, 

1 57, 

eoo, 

208, 

123 

49266 

= 232, 

224 , 

01 5, 

206, 

24B, 

1 69, 

186 

49272 

= 01 5, 

141 r 

03 9, 

208, 

169, 

1 46 , 

070 

49278 

= 141 , 

000, 

20 6 , 

1 69, 

14', 

141 , 

1 58 


molti casi con un risultato 
non troppo soddisfacente. 
Una routine in l/m risolve 
egregiamente il problema 
con ottimi risultati visto 
che ad essere ingrandito è 
il set usato dal COMMODO- 
RE residente in ROM Come 
prima cosa, per faT si che la 
routine funzioni corretta- 
mente bisogna definire al- 
cuni parametri essenziali 
alla stessa, che sono: 

AS = - Altezza lettera; va da 
un minimo di 1 a un massi- 
mo di £$S 

L$ - ; Larghezza lettera- 
idem come sopra 
X$ = Calcola asse X) va da 
0 a 255 
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Yl - (Calcola asse Y) va da 
0 a 355 

PI = (Stringa da ingrandi- 
re) 

Esempio: 

Al = “5": LI - •‘3 1 *: XI = 
"30 1 *: Yl = "100'’: PI = “VIN- 
CENZO’. 

Con questi parametri abbia- 
mo indicato alla routine 
che la stringa VINCENZO 
dovrà essere ingrandita in 
altezza per 5, in larghezza 
per 3, e dovrà essere stam- 
pata a 30 pixel partendo dal 
margine sinistro e a 100 pi- 
xel dall’alto. 

Questa ruotine lavora In al- 
ta risoluzione (hires; vedia- 
mo per sommi capi come. 
Per prima cosa verrà attiva- 
to lo schermo in alta risolu- 
zione. quindi verrà ripulito 
(non abbiate timore di do- 
ver stare davanti allo 
schermo una decina di mi- 
nuti, perché in l/m pulire 
8192 bytes significa impie- 
gare circa 9 decimi di secon- 
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49632 

49636 

49644 

4 96 60 

49656 

49662 

49666 

49674 

49680 

4 96 86 

49692 

496 98 

4 9704 

4 971 0 

49716 

49722 

49728 

49734 

4 974 0 

49746 

49752 

49758 

4 976 4 

49770 

49776 

4 97 02 

49788 

49794 

49800 

49806 

49812 

4981 8 

49824 

4 90 30 

4 9836 

49842 

49848 

49854 

4 9860 

49866 

498 7? 
4967 8 
49684 
4 9890 
49896 
49902 
49908 
4991 4 
49920 
49926 
49932 
49938 
49944 
49950 
49956 
49962 
49960 
49974 
4 9980 


: 233 , 002, 
: 201 ,146, 
=076,241 , 
: 1 29, 1 97 , 
=141 ,144, 
:Q02 , 1 94 , 
; 1 97 , 1 36 , 
: 096 , 238 , 
=003,206, 
$141 ,063, 
: 1 69 , 000, 
=063,003, 
=129,197, 
=248,169, 
=169,192, 
=027,21 2 , 
H 41 , 133, 
=069,169, 
=169,008, 
=137,197, 
=127,105, 
=169,203, 
=137,197, 
=169,055, 
=027,212, 
= 141 , 1 31 , 
=01 5,169, 
=173,027, 
=067,141, 
=208,005, 
=208,224, 
= 01 5, 141 , 
=208,005, 
=208,224, 
= 063,141 , 
=003,032, 
=003,201 , 
=132,003, 
=201 ,000, 
=208,173, 


,076,241 ,193.1 38,083 
,144,005,233,001,192 
,193,105,001 ,153,237 
.1 85,1 33, 1 97,201 ,004 
005, 233-001 .076.080 



I ^ i l f j r l 43 

062,003,173,062, 132 
1 32,003,041 ,003,148 

003.170.160.000. 047 
141 ,064,003,238,131 
206,064.003,153,014 

200.1 92,004,208,202 
020,1 41 ,129,197,190 
141,1 37,197,173,037 

041 .1 27, 105,044, 102 

197.224. 00 0. 240. 231 
008,141 , 7 30, 197, f 
01 3,1 37, 197,141 
i7i.nn.9i ).ui i 


16^,307,141 

001.208.005.169 
021,208,224,002 
169,031 ,141 ,021 

003.208.005.169 
nìl ?.n a fvftì 


, 241 
,047 
129 
F 1 BT 
,195 


*208,076, 
=141,004, 
=005, 208 , 
=000,240. 
=173,134, 
=076, 251 . 
=006,208, 
: 2 0B , 1 73. 
=240,017, 
=135,197, 
=074,195, 
:2DB, 1 1 9, 
=173,132, 
: 01 2,141, 
=197,141, 
=195,169, 
=169,111, 
.137,197, 
=173.030, 


096, i 

240,01 2,141 ,004,026 
1 33,197,141,005,035 

-k -t % aé ì fa nnn r- c 


■ ■ -*■ r ir » ^ 

222.194. 169.000, 

208.1 69.000. 141 , 
173,1 30, 197,201 , 
nlMll . 006.208 


1 73, 1 30, 1 97 , 201 
01 2, 1 41 , 006, IO® 
197,141 ,007,708 

194.1 69. 000. 1 4 1 
169,030,141,007 

1 31 . 1 97.201 . 000 
141 ,008,208,173 
141, 009,708,076 

1 69.000. 141. 008 
070,141 ,009, 706 

1 97.201 .000. 240 
01 0, 208, 1 73,136 
01 1 , 706,076,053, 7 
000,1 4 1 ,010,208, ? 

141.011. 208 . 173.0 

141.016. 708.096 . 0 
20B, 1 41 , 065,003 , 1 


053 

109 

110 
06 5 
068 
04 5 
037 
136 
01 4 
004 
037 


1 1 
1 ' 


do e con una buona ed ac- 
corta programmazione si* 
miramente molto meno); il 
programma ricercherà poi 
in memoria i parametri Al, 
LI, XI, Yl, e dopo averli 
trovati li immagazzinerà 
per poterli poi utilizzare; 
quindi cercherà la stringa 
da ingrandire ed una volta 
trovatala ne caricherà il 
primo dato ricercandolo 
nella ROM generatrice di ca 
ratteri. 

Vediamo come far funzio- 
nare la routine: dando SYS 
49661 si entra nella routi- 
ne cancellando quello che 
si trova in pagina grafica, 
se invece volete rientrare 
senza cancellare la vecchia 
scritta o anche per aggiun- 
gere qualche altra cosa date 
SYS 49664 Una volta ritor- 
nati al BASIC e data la pau- 
sa voluta, basta dare SYS 
50180 per disattivare la pa- 
gina grafica ma senza can- 
cellare la scritta anche se 
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essa non sarà più visibile 
Cosi facendo» ai impostalo 
da capo le aree di memoria 
per lo schermo e per il video 
e viene restituito il control' 

10 al BASIC Se volete cam- 
biare il colore alla scritta o 
al fondo fate una P0K2 alla 
locazione 50101 ricordando 
che i 4 bit più bassi indica 
no il colore dì fondo mentre 
quelli alti indicano il colore 
di tutu ì bit impostati ad 
uno. 

Per battere questo pro- 
gramma usate il caricatore 
di l/m “MLX\ pubblicato 
sul primo numero della no- 
stra compilation Qualora 
non ve la sentiste di batter 
li, li troverete ognuno sulla 
cassetta allegata ai relativi 
fascicoli Alle sue domande 
circa l’indirizzo di partenza 
e di fine dovrete rispondere 
rispettivamente con 49152 
e 50345 

11 programma si carica con: 
LOAD “INGRANDIRE", 1,1 

24 


4 Hli : 1 73,065, 003, ©41 ,004,301 , 04 1 

49993 

004 ,20», 022, 149,000,141 ,104 

4 999* 

129,197, 032.013, 196,032, 165 

50004 

31 7, 196, 173, 071 , JOB , 041 , 173 

5001 0 

351 .141 , 031 .30», 076, 154, 173 

50016 

1 96 , 173, 065, 003, 041 , 008,070 

50033 

301 ,008,306,030, 169,000,306 

5003» 

1 41 , 130, 1 97, 173, 1 37,197,059 

50034 

04 1 ,347, 141 ,137, 197*032. 14 1 

50040 

01 3,196 , 033 ,311 , 196 ,173,200 

50046 

021 ,303. 041 ,247, 141 ,021 , 037 

50053 

30*. Ò76, 154, 196, 173,065,236 

5005* 

005, 611 , 016, 201 , 01 6, 308, 11 1 

50064 :0?2, 1*9, ODO. 141 . 1 31 , 1 97,036 

500 70 

032,013. 196.032.249,196,100 

50076 

173,031, 208,0*1 ,239,141 ,21 1 

500*3 

021 , 20B, 076. 154 ,196,173,223 

SCOtì B 

06 5,003,041 ,032,201 ,032,030 

50094 

208,032, 169,000.141 ,132,018 

50100 

197,032,013.196,032,004,142 

5010* 

197,173.021 ,208. 041 ,22 3,02 5 

30113 

141 ,021 , 208 , 076, 1 54 , 196, 220 

5011* 

096,169, 015, 141 ,024, 31 2,0*7 

501 34 

1 6 9, 01 0, 1 41 , 132,003, 162,053 

501 30 

255,142,001 ,212,302,142,140 

501 36 

068,003, 032,015, 197, 174 ,193 

50143 

06 8 , 003, 224 , 000, 206, 339,196 

5 0 1 4 B 

16 9,050, 1 41 ,132,003.032.343 

SOI 54 

015,197, 238,032.20*. 173,073 

SOI 60 

03 2,308,041 ,015,201 .000,225 

501 66 

208 , 241 , 1 69 ,000,141,024, 005 

SOI 73 

21 2,173, 000,220, 041 , 01 6, 146 

5017* 

2 0 6,24 9, 104 ,104,104. 104,107 

501 «4 

104 ,104, 076,003, 192, 169,144 

50190 

1 46,141 , 000, 208 ,169,141 ,051 

501 96 

141 ,001 ,200.163,007,160,1*7 

50303 

0 3 5,024,032,240,255,206,050 

5030» 

063 ,003, 230.0*4,003, 173 ,064 

50314 : 06 3, 003, 034 ,105,040,033 , 057 

50220 

210,255, 162,012,160.035,110 

SO 22 6 

02 4,032, 24 0,255, 173,064,070 

50232 

003,024, 105,040,032,210,222 

5033» 

355,096, 165,197, 201 ,004. 212 

50244 

208, Oli , 1 69, 060, 1 41 , 132 , 021 

50250 

003,169. 049, 032,1 36,196,147 

50356 

096,201 , 005,208,011 , 169, 002 

50262 

042,141 , 132,003,169,050,111 

50366 

032,136, 196,096,201 ,006,247 

50274 

2 08 , Oli , 169, 035, 1 41 , 1 32,076 

502 80 

003 , 169, 051 , 032, 1 36, 196, 1 79 

50316 

0 96, 301 ,003,208,011, 169,030 

50392 

027,141 ,132,003. 169,052,17* 

50398 

037,136, 196,096,173,141 ,138 

50304 

002,041 , 001 , 201 ,000, 20* , 069 

5031 0 

247,096, HI ,082.003,162, 097 

50316, 

01 7.160,035,024,032, 240, 136 

50332 

255, 173, 002, 003, 032, 31 0, 1 33 

50 32 fi 

2 55,096, 173,066,003, 7 7*, 151 

50334 

067,003,024, 105,002.144,247 

50340 

001 ,232,141 ,066,003, 142,337 



Cantautore 


Parole e musica composte 
dal Commodore 64! Per esse 
re sinceri, siete voi a forni 


re la parole, ma è il compu- 
ter a combinarle in dozzine 
di differenti maniere. Le 


poesiole di cinque righe che 
compone, possono essere 
divertenti come ridicole, m 
funzione della vostra in- 
ventiva, e molto più ironi- 
che se inserite i nomi dei 
vostri amici o parenti Gio 
cateci per divertirvi da soli 
o date un party al r in segna 
del 64 Compositore! 

Come giocare 

Caricate il programma e da- 
te il comando RUN. Sentire 
te il motivano e vedrete 
comparire un verso rimato 
costruito da parole e frasi 
già incluse nel program 
ma.. Vi verrà chiesto: 4 VU- 
OI CANTARLO?’; se volete 
cantare le parole, accorci pa- 
gnati dalla musichetta pre- 
cedentemente ascoltata, 
premete “S" ed il motivetto 
si ripeterà mantenendo il 
verso sul video. In seguito 
viene chiesto: ‘AHCORA?* 
Se premete il tasto “S” il 
motivetto viene ripetuto, 
viceversa, con un qualsiasi 
altro tasto, il 64 comporrà 
un nuovo motivo. 

Sezioni del 
programma 

10- 80 Imzializzazione 

90-150 Esecuzione del mo- 
tivetto 
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tìo 


ASM ■ «CANTAUTORE* * 

FOftJ -OT02*: POKE5- 2 7 2*T , 0 ; *SX7 

V -5 2 7 2 s PQKEV+5 P 9 : POKEV + 6 , - 30 ìZ-l; 

BEFFAR X 1 «INT ( RAD (1 ) *1 * 1 

P3ÌNT" [CLRJ [ WHlTE } { 3 CU ft . Ci Li ) " : POK15 3 

2i SO , 5i POKE532&1 MG 

X|U CALLED (2 *" 3F « 


70 vasi}-" ftLWAYS -ir* ' JiEVER M sYÌ 3 
3-" 5ELD OH " 

SO 1% : ! )* H tkt " :2Ì : 2)=" « 1 GH . " 

90 PQKEV'CAMìtFOaj-TTJSil 

roo READFH.FL.D 

' 1 0 PQKE , , FL:?OKSV*' , FU : * ; X F 

120 F0HK-lT0l5G*D 

130 tf EXT 

T4Q E»OKEV-*,3i 

150 KEXTi POKEY‘2 1 ! ,C 

160 IFZ-3THEIiZ»1 1GCT0200 

17 0 PS " 1 SLUE } ASCORA ?i »2 SPI >{ COR . SU 
}" 

1 80 ceTAtiIf AÌ* 1, "THEN1 8Ci 
’ f.) M A $ - " S "7 -IEN R ESTDRE : GOT J 9 Q 
20 0 ftX-FHP': ? j ;RY-FNRC3 J sRZ-FNR t 2 ' 

CIO PRIN7" tCLR } 1 W H ITE } ” :F0RJ -ITO? 

220 REAOa.S 

230 t F J « tìTHENRJNFNfl f 2 J s V • ( R X - 1 )*S/Q*(RQ - 
1 ■ * 4 * R R j G 0 T 0 2 3 C 
240 RO-FNR(Q) 

250 P*i 

260 1 FJ- 3 THERP-RX 
27 0 : F 4 ■ 5 T H E N ? - R Z 

2 SO *y*aq 

290 FORK-Ilód 
300 flEAOWKJ) 

31 o KEXr 

320 IFK-S* 5 THEN3&0 
330 FQFtK-t» * 1 T0S 
3*0 REABW1 
350 MEXT 
360 «EXT 

370 V$-"THERE WAS A " ♦ W* ( 1 J *•" ” •dt { 2 ) *X$ 
t A X } • W S < 1 1 


160-190 tolto a ripeter* il 
motivo (saltato nel primo 
passaggio del programma 
200-360 Selezione casuale 
delle parole e frasi dalle 
istruzioni DATA 
370470 Costruzione e ti 
sualizzazione del verso, li- 
nea per linea 
460-500 Invito a cantare 
£10-540 Ciclo di lettura dei 
primi 123 dati 
1000-1060 Istruzioni DATA 
per 11 motivo 

2000-6000 Istruzioni DATA 
per il verso 

Punti di 
interesse 

Le parole vengono estratte 
direttamente dalle istruzio- 
ni DATA ogni volta che vie 
ne composto un nuovo ver 
so Sarebbe stato molto piu 
semplice aver trasferito 
prima le parole in una ta 
bella dove potevano essere 
elaborate piu facilmente, 
ma ciò avrebbe comportato 
uno spreco di memoria in 
quanto sarebbero stati pre 
senti gli stessi dati due voi 
te, una ne) programma e 
l’altra nella tabella, inoltre 
sarebbe poco pratico ag 
giungere altre parole o fra 
si 

I numeri casuali sono mol- 
to sfruttati, perciò viene 
definita una funzione ap- 
posita nella linea 30. 

Tratto da 

•Il libro dei giochi del C64 ", 


360 PRIMI: pristv* 

ÌÌQ VI- -Uh ÈO**f! ; Rì )•**{*) 

4.0 FRI NT ; P filarvi 
4 1 0 va- "TRE N 
*20 PRIKT: PRIMTV* 

VI-'jNE *+WS{6)+Z*!RZI 
4*0 PRIKT: PH INTV* 

*50 VI - "TRA T "**$(?)*” "*a*M *" 

* X | f RI ) ♦ K | ( 3 ) 

«60 PFtlKT: PRINTVS 
«IO RESTOHE 

«60 PRIMI" t 3 CUR .GIU H BLUE 1 VUOI C ANTA RL 
0 ? { CUR . SU }* 

-90 GETAl; I FAI-" " THEN*90 
500 I FA I-* S "THEN 90 
510 F0RJ-tTO123 
520 READX 
530 NEH 
5*0 GQTQ200 
1000 DAT*t6 . 195, 1 
1 ,22,96 ,2,21 
1010 0ATAT8 
16,195 
1020 &ATA25 
,21,31 
1030 DATA28 
3. H5 

10*0 DATA33 , 1|5,2,0, 0, 1 
,29,223 , 1 ,29 ,223, 1 
1050 DATA29 , 223 , 2 ,0 .0. t 
33, 135,1 ,20, *9, t 

1060 DATA29 ,223,2 ,28**9, 1 ,25,30. 
2,22,96,2 

2000 DATA*. « , FAI, CREAI, SLY.9RIGHT 

?000 DATA-* . « , i*RI TER , LO aFER , A HTIST . SE AUT Y 

aooo DATA 3 , 6 .KELLY .PARKIN , ME VILLE 

«CIO DATALO TQN.ELY.NOF-ICH 

5000 DATA? , 1 2.THREW URICHE AI THE TELLT . 

ATE ICE CHE AM AMD JELLT 
510 DATASET ALL THE DQGS BARK 1 N G , MAS FO 
OLINO ANO LARXIKC 

5020 DATASA10 'I'« A F E AL DEVIL * .MAS GUI 
TE QN THE LE V EL 

5030 DATA-EN7 HUNTIS’ ANO SHO"T IN* , PLA YE 
D C.HESS KiTH ÉiiS 300 TS OS 
50*0 DATaSAID *IS IT IRSI E? - R £ A L L Y ? ’ , H A 
0 EYES THAT WEHE STEEL* 

-.50 damate nustard with pofiRiocE ,lacke 

0 VIQOUR AND CO’JRAjE 

6000 DATA3.6 .SFEJfT ALL SIS PAI , FELL IN T 
HE BAY , JOINED THE A A 
&Q1Q DATA DI E 0 OF SHEER FRIGHT.PUT OUT TH 
E LI GHT , LOOK ED SUCH A SluHT 
'DUO DATA5, 5 .TERRIBLE , CO L D FROSTIf ,1 LL FA 
T E 0 , F A H U LO U S , MEM OH A B L E 
1000 DATA 6 ,6 ,STU P ID , CLEVEfi , L AZI , CRAFT Y , E 
VI L .PRETTI 


22,96,2,22,96 ,1 .22,96, 
31,1 

209.1 ,21 ,31 ,2 ,25,30, 3,0,0, t , 
1 ,25 ,30,2 

30,1 ,25,30,1 .25,30,2.22,96.1 
1 ,22, 96,2 

«9,3, 0,0. 1 ,20. *9,1 ,33,35,2, 3 
1 .33,1 35.1 

28 , * 9 , 1 , 29 , 223,2 
25 , 30 . 1 , 28 , * 9 . 2 , 

1 , 28 , «9 , 
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Nevets 




Questo gioco richiede da 
parte vostra sia un senso 
strategico che un po' di de- 
strezza 

L'unica arma di difesa di 
cui disponete» è montata su 
una torretta che può essere 
alzata e abbassata usando il 
joystick Inoltre» sempre 
con il joystick potete pun- 
tare a sinistra, destra e spa 
rare 

Ci sono 40 livelli di gioco: 
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per passare al livello suc- 
cessivo, occorre eliminare, 
entro 60 secondi, la quota 
di invasori visualizzata 
sullo schermo 
Quando si realizza la quota 
richiesta si riceve un 1» 
nus pari al tempo rimasto 
moltiplicato per dieci. 

La partita termina quando 
tutte e quattro le capsule 
vengono perse 


Tratto dal libro ; 
‘Paper Book 9 
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2 

3 

n 

5 


IO 

lt 

n 

20 

30 

ito 

*5 

50 

55 

60 

70 

T3 

75 

SO 

90 

100 

■ 01 

105 

106 
no 

120 

130 

135 

1 3* 


1 ij 6 
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PSIiTCHfllt t *?); POKE56 ,48;CLR 

FGRL-542 ■ 2X05*296 :POKEL ,0: N£XT : POIEE5*2 

96.15: POK E 5 *?T7 . 72 : POHE5A27 8 , 90 

BF*5*2T3 ; UF-5*272;VU'«54276 

POKE5J28' . 1 : P0KE532S0. 15: FRINÌ» (Ctfi) l 1 

? CUR.GLU } "TABM onero JATTENOERE un M 

OMENTO» 

PR1 NTCKftS { 1 *2) i POKE5633* . PEEX { 56 J 3 4 A 
KD25» 

POSE 1 , PEEK ( l ' AHD251 :FORI -OtOSI 1 f PCXEl 

• 1 2288 . P E E K ( I*532Ae>:1IEXT 

PQJCE1 . PEEK M )OR A : P0KE56 3 3 4 , PEEK ( 56 3 3 4 

)OR1 

POKE5 327 2 . ( PEEK( 53272 JAN D240 JORI 2 

FORO 1 2800T01 2879: READ A : POKEC ,A : NE K T 

0 AI A129 t 6h.ì6 ,24,24, 36,66, 129,16,24,2 

8. 30, 27, 25, 2*. 255 

0ATA8, 2 A, 56, 120, 2 16, 152, 2 A, 255 

DATA24,24 , 2* . 2 4 , 2 A , 2« , 2 A , 255 , 255 , 1 5 3 . 

153.153, 1 S3,'5 3. 153,255 

DATAI *5.82 ,0,27 . 216,0, 7 A. 1 J7 

DATAI 6,56 , 56,64 , 1 Afi t 56 , AQ , AO, 1 6 ,2« , 1 2 

,6,3. 1 ,0.0 ,6.26 t «8, 96, 1 92, 128,0,0 

DATA 129, 90 . 36,90,90 ,36 ,90 , 129 

P R 1 NT “ ■ ’ L R 1 I 1 2 CUfl . GIU ) "TAB M 6 ) " ( REO i 

XEVETS» : F OR T - T T 020 OQ : N EXT 

FRINÌ" CUR 1 * : CL -5A2T2: FORX* 1 564T01 623 

: P0KE3£*:l . 6 : P0KE t , 68 jPOIEX* *00* CL , 6 

POSE X * fc - • NEXT 

00T016I 

JV-PEEKt56320ÌsP-15-(JVAND15i:FR-dVA 
MD1 6 

1FP-OANDFR-16TKEN RETURN 
ÌFP-OAMDC-65THEMS-41 : T-7t 
I" P-OANDC -66THENS-39: T- 7 2 : RETURN 
ÌFP-1 THFNA-A-40 : IFAC1 1 6 4 THEN A * 1 ' 6 4 : R 
ETUR* 

IFp. 2 “HE 14 A- A* 40 ; I FA >2004 TMlKA-2004 : 1 

ETURN 

TFP- 4TRENC-66 :S-39 : T-72 i RETURN 
1FP-5THFN A«A-40 : l -66: 5»39 : T-72 : IFA< ’ 
* 6ATHESA - 1 *6“ : RETURN 

IFP*6THENA.A-4a : G-66;S-39:T-72:lFA>2 
004THENA - 20C4 : RETURN 
l FP-3THPNC-65:S--i : T » 7 1 ìRSTURN 
IFP-9THENA-A-40 ;C-65:S- n : T-?T : IFA 1 
1 64THEHA - 1 ' 64 ; RETURN 
IFP-i OTHENA-A* AO: C-65 : Sptmt-71 : 1FAP 
2004THENA -2C04 ► RETURN 
RETURN 
V-0 

£-8 s J- 1 6 ! Tt-0 { T rf- C : ; • 3 : F3R : - ’ 02^*T : 1 ■ 6 
3 : P0KE1 , 32 : ViÀ~ 

PCX E" ,32 : p ssx , U : p <F , , : 

F-7 9AA : K-f iC-t : L-QiFORX-1 08410200 4ST 
fpìjh ■ X2 

HEXT:GOSUB950ì TT-YTH i IFTT-1 OTHENYY- 
1 : E-E” { E * .5): 



1 90 A*2004 :C*67 :D-0: I -0 jO** 0 : TI *«*000000" 
: Y-Oilf-VM 
195 GOSUBMOO 

,200 OOSUB1 OQt POKEA'CL ,0: POKEA ,C :! FA <2004 
THENP0K£A*40«CL,0iPOKEA*4O,6* 

205 IFP-a0RP*60RP - 1 0THENPOKEA‘l|0»CL , 1 : PO 
*EÀ*CL,0:P0KEÀ,C 
210 If FR*Q AMD A< 2004 TRENO* A 

21 T POKEKF , 3* ; POKELF , 75 : POKEVQ , 65 : FOfl 1 - 1 

T05 : «E 1CT 

21 2 IFFL-1 THENPOKEF » 3 2 : GOSUB800 1 F-KK ; G*L 
L 

2 1 3 POKEF , 32:F-F*Gi POKEF+CL , 2 ( POKEF ,70 
21 1 1 IFPEEK ( F-G) -7 3AN D FL-GTHENPOKEVO , 64 : G 

OTO7Q0 

215 1FPEEK ( F*4Q«.Q )< >60THENPOKEF, 32 : PQKEY 
0 , 1 6;G0SUB&Q0:F-KKrG-LL 

222 POKEHF , 45 ■ POKELF , 1 98 : POXE VQ , 1 7 : FQR I - 
1 T05 : REXT 

2 23 1FKL-1 TKEMPOKEK,32iGOSO00OOìX-KK:L-L 
L 

22 4 POKEK,32!K-K*L!POKEK*CL,2ì POXEK ,70 

225 lFPEEKnt+L).7 3ANDKt,-OTKENPGKEVO p 6H:G 
070600 

226 IFPEEK(K+4O*L)<>60THENPOK£K,32;POKEV 
0 , 1 6 :GOSU 08 OO :K-KK:L-LL 

230 KL-0:FL-Of IFFR-OTHEK235 

231 GOSUBt 000:POKEA^CL,OiPOKEA J CiIFA<200 
4THENP0KEA* 40*CL , 0 : POK EA + 40 , 64 

232 IFP»2THENPQKEA-4Q*CL,,1ìPQKEA*CL,05PQ 
KIA.C 

235 I FFR«Q ÀNDQ< 2004 ANDC< >6 7THEN POKEQ , 32 1 
GOTO? H 2 
240 GOT0305 

242 POKEHF,lOO;POKEUF,B5:P01tEVO.l7;PORI- 
1 T01 0 : MEXT 

245 JFPEEKCQ*S) -70THEMP0KEQ.32 : Q*Q*S : PQK 
£Q*CL. 1 1 jPOXEQ,69iGOSU04OO:GOTO3O5 

246 IFPEEK(Q*S)-73THEMP0KEQ*S*CL f 2t POKEQ 
♦S * 73 : GOTO 305 

250 :FP£EK (Q*S ) -Ó80RPEEK (0*5 )-6 97KEHPOKS 
H , 32 : POKEVQ ,16: F«- 1 6 : G0T0305 
265 IFC<>67tHEMQ-0*StP0KEQ*Cl..0:P0KEQ.T 

305 POKEVQ , 1 6; PRINTMHOME] i BLUE 1 TEH PQ{ BL 
ACKJ"60*IHT(TI/60 )" (CUS .SIN ] ™ ; 

306 PR I NTTAS{ 26 ) * { BLUE } L I VELLO ( 2 SPCMBL 
ACK ) " j H 

310 PAINI* { HOMEUCUR . GIU HBLUE JKAX PONT. 

{ BLACK}" i V 1 

31 1 PRINTTAB(26}"{ BLUE } PUNTEGGIO {BLACK)" 
}U:IFTI/6O>>6OTHEK500 

315 PR I NT' 1 HOME t (2 CU H . Gl U M BLUE }H E YETS 
RIMANENTI [BLACK}":'nf-Y:SPC( 73 " {BLUE 
} ELIMINATI { BLACK 1 " } V 

320 IFX-YYTHEWU*U+( 1 0* ( 60-1 Ht { I I /60 ) )} (G 
070173 

321 GOSUBIDOOìPQKEA'CL.Q; POKE A , C : I F A< 200 
4THENPOKEA*40»GL,QiPQKEÀ-* i lQ p 64 
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Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation, Lo 
troverete in edicola il 
1 0 Ottobre. 


322 


32 * 

326 

327 

328 

330 

«00 


soo 


IFP- 2 THEKP 3 KEA- 40 *CL ,1 : POKE A * CL , G I PO 
JCE A , C 

trru- 10 RKL- 1 THEM 200 
IFFBO 0 THEN 200 

If PEER(Q*SJ-70THEllP0KEQ,32!(ì-Q*S:P0lt 
ÈQ* CL , 1 T : PQKEQ , 69 iGOStlBUOO : COT02OO 
IFPEEK ( Ci *5 )«7 3THERPOK£Q*S*CL ,2 : POKEQ 
♦ S , 7 3 : GOTQ2QQ 

IFP£EIl{Q*S)- 6801 tPEEK(Q* 5 >- 69 TH£NP 0 KE 
lì , 32 :POKE¥ 0 t t 6 : FH*l 6 ? GOT 020 O 
lFC<> 67 THEifPOKEQ 1 32 :Q-Q*Si P 0 KEG*CL ,0 
iPOKEQ ,T :C 0 TO 2 t 1 
GOT 0200 

: T-T* 1 i Ffi-15:KL-1 : PONEVO, 1 6 i PO 
K £ H F , 6 8 : POKE L F „ 200 ; PQKEV0 , 1 29 
IFPEEE(F>-69THEHFL-1 
IFPEEMK Ì-69THENKL-1 
FQR I-1TO50:NEXTt PONEVO , 1 28 : PQKEQ , 32 : 
RETURN 

PRI NT" l HOME ì l 3 C 01 .GIUHBLJLCKM 19 SP 
CJGAPEI 2 SPC ) OVER* : F QRX - 1 TG 2 QOO ; NE XT 
IFU>VTHEN¥-U 

PMNTMCUR .GIUHBLACK] [7 SPC } PREMERE 
FUOCO PER RIPARTIRE" 

P-PEEK{ ^ 6 J 20 > iFR-PANDì 6 
IPFRO 0 THEN 520 
GOTO ITO 

POKER t 32:P0KEK*L.32i0-0*l :IFQ-«THEN5 
00 

COSUiSOO 5 JS-KK ;L-LL:G0 t0235 
POKEF, 32: POKEF + G.32I 0-0*1 :IFQ-*THEN5 
00 

COSUBBOO ;F-KK : G-LL:GOT0222 
N-INTt RHDU > • « >* 1 iONNGOTOfll 0 , 820 ,830 

t ikO 

ICK- 1 5«R : LL-* \ Ì RETURN 
KK- T 583 ; LL-- 1 ; RE f TUR W 
KK - 1 9^ At : LL**1 i RETURN 
KK- 1 983 : LL--1 jSETURN 

X*1 563 ; POKEÌ*CL ,2:POKEX ,73tX-I*2 Ì POK 
EX* IL , 2 : POEEX .7 3 : 1-1 9 & 3 : POKEX *CL , 2 
POK EX, 7 3 :I-X*Z: POKEX *CL ,2 i POKEX .73 : R 
ETUfili 

JV-PEÈK( 56320) :P-15- JVAKD15 
IFP-OTHESRETURN 

IFP- 1 THEMA-A-iO:IFA<l 1 6 «THENA - 1 16 « : 
RETURN 

IrP = 2 THE^A=A*« 0 ::FA> 200 «THENA- 200 i <: 
RETURN 

IFP-iTHENC-66 : RETURN 
IFP -0 THENC» 6 5 : RETUftN 
RETURN 

PRIST" IHONE] (20 CUR .GlU ì "T AB M 6 ) " [ ft 
EDjLfVELLOt BUCK]" ; W:FORl- 1 TG1 ODO : N 
EXT : Pft I NT h i HOME 1 * 

i’iO FOR:-1-824T01863:PCKE:,32:NEKT:RETUR 
tt 


710 

800 


960 

1000 

'005 

1010 

1020 

1030 

1 QAO 

1050 

1 1 oo 
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Ritorna in edicola 


lf corso più entusiasmante su cassetta 
" ' oriale Jackson 

VIC 20 e Spe< 

200.000 copie vendute 


del Gruppo Editoriale Jackson per Commodore 64, 

tetri 


d*4 1 * fcurìento prima sd zk™ 


um 


\e^ 


Oracolo 


corso è composto da: 

20 fascicoli + r 
20 cassette +■ 

5 splendidi raccoglitori 


Oggt • davvero tacile impor ore il 
(tatfc- Con Video desk t) corso tu 
couetto che N permette di 
rogro minore subito II ivo computer, 
focile: tu chiedi, lui risponde, 

>u import. Posse dopo pasto. 

Sul tue schermo appaiono le 
domande, te risposte, gli esercizi e 


tu, senio fatica, presto e bene, 
impari a conoscere 
■ programmar* li tuo computer, sio 
essa un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provola subito. 

Ogni lezione è uno spettacolo. 


Oggi il Bolle si impara così. 

Video Basic, il corso su cassetto per 
parlare subito col tuo computer. 

Video Basic 

per imparare non solo il Basic 


f 


Un'ahro grande idea firmala 

GRUPPO EDITORIALE JACKSON 

MBano^Sm Franasco4on&>Mùdhd 














